home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD008b.dsk / WHAT I DO PART1.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  61 lines

  1. 5  REM  WID, BY JEFF MARRACCINI
  2. 9  ONERR  GOTO 60000
  3. 10  TEXT : HOME : NORMAL 
  4. 20  PRINT  TAB( 15)"APPLE ]" CHR$(91)
  5. 22  PRINT : PRINT 
  6. 25  HTAB 15
  7. 30  PRINT "P";: FOR I = 1 TO 600: NEXT I: PRINT "R";: FOR I = 1 TO 600: NEXT I: PRINT "E";: FOR I = 1 TO 600: NEXT I: PRINT "S";: FOR I = 1 TO 600: NEXT I: PRINT "E";: FOR I = 1 TO 600: NEXT I: PRINT "N";: FOR I = 1 TO 600: NEXT I
  8. 40  PRINT "T";: FOR I = 1 TO 600: NEXT I: PRINT "S";: FOR I = 1 TO 600: NEXT I: PRINT : PRINT 
  9. 45  HTAB 14
  10. 50  PRINT "WHAT I DO.": PRINT  TAB( 8)"BY JEFFREY MARRACCINI"
  11. 51  VTAB 20: PRINT "PLEASE PRESS A KEY TO START.";: GET R$: HOME : VTAB 5
  12. 55  PRINT : PRINT 
  13. 60  PRINT : PRINT "INSTRUCTIONS-"
  14. 70  VTAB 09: PRINT "-------------"
  15. 80  PRINT : PRINT "  A SCREEN EASILY FILLS WITH DATA- SO   WHEN YOU SEE A '@' AT THE SCREEN BOTTOM PRESS A KEY TO CONTINUE."
  16. 90  VTAB 23: PRINT "@";: GET A$: VTAB 9: FOR I = 9 TO 23: PRINT "                                        ";: NEXT I
  17. 100  VTAB 9: PRINT "CONTINUING--": PRINT "  THIS PROGRAM SHOWS THE MAJOR ABILITIESOF THE APPLE II AND APPLE II PLUS. THIS PROGRAM IN NO WAYS SHOWS THE TYPES OF   SOFTWARE FOR THE APPLE II AND -II PLUS."
  18. 110  VTAB 23: PRINT "@";: GET A$: HOME 
  19. 120  FOR I = 1 TO 20:: PRINT "NOW TO BEGIN": INVERSE :: PRINT "NOW TO BEGIN": FLASH :: PRINT "NOW TO BEGIN": NORMAL : NEXT I
  20. 130  FOR I = 1 TO 22: PRINT " ": NEXT I
  21. 140  VTAB 4
  22. 150  PRINT : PRINT "THE APPLE II HAS A 40 COLUMN, 23 ROW    SCREEN. (FOR TEXT LIKE THIS) THE APPLE  HAS TWO GRAPHICS MODES (SEE LATER)."
  23. 160  VTAB 23: PRINT "@";: GET R$: HOME 
  24. 161  PRINT "  THE TEXT SCREEN CAN PRINT CHARACTERS  STORED IN A PORTION OF MEMORY. MOST II'SDISPLAY A 40 COLUMN, UPPER CASE DISPLAY.APPLES CAN USE A CARD THAT MAKES AN 80  COLUMN, LOWER & UPPER CASE DISPLAY.": VTAB 23: PRINT "@";: GET R$: HOME 
  25. 170  PRINT "TO DISPLAY THE LOW-RESOLUTION GRAPHICS  SCREEN, TYPE 'GR' AND PRESS RETURN.": PRINT : PRINT : PRINT "DO SO NOW.": PRINT : INPUT "]";G$
  26. 180  IF G$ = "GR"  THEN  GR : GOTO 200
  27. 190  IF G$ < >"GR"  THEN  PRINT "SORRY, PLEASE TYPE 'GR' AND PRESS RETURN": VTAB 23: GOTO 170
  28. 200  HOME 
  29. 210  VTAB 21: PRINT "THIS IS THE LO-RESOLUTION SCREEN. PRETTYBLANK.": PRINT "@";: GET P$: HOME : TEXT : HOME 
  30. 220  PRINT "  TO PLOT A POINT, THE COLOR MUST BE    GIVEN. COLORS ARE FROM 0 TO 15: YOU WILL SEE THEM ALL.": VTAB 23: PRINT "@";: GET P$: HOME 
  31. 230  PRINT "THE OPERATION FOR SELECTING COLOR IS AS FOLLOWS: ENTER 'COLOR=X' (X=COLOR NUMBER) AND PRESS RETURN. NOTHING HAPPENS!!    THERE BETTER BE AN EXPLANATION FOR THIS!!!!": PRINT : PRINT "WELL, ER ,AHH UMMM...,": PRINT : PRINT "FIRST A POINT MUST BE PLOTTED ! ! !
  32. 235  VTAB 23: PRINT "@";: GET S$: HOME 
  33. 236 MP = 235
  34. 240  PRINT "  TO PLOT A POINT, 1) YOU MUST KNOW THATTHE SCREEN IS A 40 BY 40 GRID OF BLOCKS IN GRAPHICS, 2) THE FORM IS 'PLOT X,Y' (X,Y ARE THE COORDINATES)": PRINT : PRINT "PLEASE DO THAT NOW, USING 1,8 AS THE COORDINATES."
  35. 250  REM  'PLOT 1,8' = 8 SP.
  36. 251  PRINT : PRINT : PRINT 
  37. 252  PRINT "ENTER 'PLOT 1,8', PLEASE": PRINT : INPUT "]";P$
  38. 255  IF P$ = "PLOT 1"  THEN  GR : COLOR= 1: PLOT 1,8: VTAB 21: PRINT "PLOT 1,8 HAS BEEN EXECUTED.": PRINT "@";: GET S$: HOME : GOTO 280
  39. 260  IF P$ < >"PLOT 1,8"  THEN  HOME : PRINT "SORRY, PLEASE READ THE DIRECTIONS.": GOTO 235
  40. 280  VTAB 21: PRINT "NOW TO DRAW A LINE FROM THAT POINT.": HLIN 1,39 AT 8: VTAB 23: PRINT "@";: GET AW$: TEXT : HOME : HOME 
  41. 290  PRINT "  ALL I DID THERE WAS TO ISSUE AN 'HLIN' COMMAND, (FORM HLIN START,FINISH AT Y). IN THIS CASE IT WAS 'HLIN 1,39 AT 8'.  ANOTHER COMMAND WITH THE SAME FORM: VLIN, FOR VERTICAL LINES. (VLIN X,X+ AT Y)": VTAB 23: PRINT "@";: GET PP$: HOME 
  42. 300  TEXT : HOME : PRINT "NOW FOR A TREAT. A TOTAL LO-RES PICTURE WILL BE DRAWN.": VTAB 23: PRINT "@";: GET R$: GR 
  43. 310  COLOR= 2: FOR I = 0 TO  INT(39/2): HLIN 0,39 AT I: NEXT I: COLOR= 7: FOR I =  INT(39/4 +7) TO  INT(39/2): HLIN 0,39 AT I: NEXT I
  44. 311  FOR I =  INT(39/4) TO  INT(39/4 +6): COLOR= 2: HLIN 0,39 AT I: NEXT I
  45. 315  HOME : COLOR= 12: FOR I =  INT(39/2 +1) TO 39: HLIN 0,39 AT I: NEXT I
  46. 320  COLOR= 13: HLIN 13,21 AT  INT(39/2)
  47. 330  HLIN 14,20 AT  INT(39/2 -1)
  48. 340  HLIN 15,19 AT  INT(39/2 -2)
  49. 350  COLOR= 8: FOR I = 1 TO 3: VLIN 10,30 AT 28 +I: NEXT I
  50. 360  COLOR= 12: HLIN 25,34 AT 9
  51. 361  HLIN 24,35 AT 8: HLIN 23,36 AT 8: HLIN 22,37 AT 7: HLIN 21,38 AT 6
  52. 362  HLIN 20,39 AT 5: HLIN 19,39 AT 4: HLIN 18,39 AT 3: HLIN 17,39 AT 2: HLIN 16,39 AT 1: HLIN 15,39 AT 0
  53. 363  COLOR= 4: VLIN 30,27 AT 6: VLIN 32,29 AT 10: VLIN 27,30 AT 14: COLOR= 1
  54. 364  COLOR= 3: PLOT 5,25: PLOT 7,25: PLOT 6,26
  55. 365  COLOR= 9: PLOT 10,28: PLOT 9,27: PLOT 11,27
  56. 366  COLOR= 1: PLOT 14,26: PLOT 13,25: PLOT 15,25
  57. 367  REM  ADDITIONAL SPACE-----
  58. 400  VTAB 23: PRINT "@";: GET R$: TEXT : HOME 
  59. 405  PRINT "  PRETTY, ISN'T IT ? AND IT IS EASY.": VTAB 23: PRINT "@";: GET R$: HOME 
  60. 407  VTAB 15: PRINT "PLEASE WAIT, LOADING PART 2.": PRINT : PRINT  CHR$(4)"NOMON I,O,C": PRINT : PRINT  CHR$(4)"RUN WHAT I DO PART2"
  61. 60000  RESUME